<script>on returnInFieldsend MouseUp to bg btn "Find"end returnInFieldon enterInFieldsend MouseUp to bg btn "Find"end enterInFieldon closefieldglobal gFindStringput me into gFindStringend closefield</script>
</part>
<part>
<id>44</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>255</left>
<top>181</top>
<right>436</right>
<bottom>197</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>hitz</name>
<script></script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>193</left>
<top>159</top>
<right>242</right>
<bottom>180</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clear</name>
<script>on mouseUpglobal gCardTitles,gFindStringput getInsertionPoint() into insertionPointset cursor to 4set hilite of me to truelock screenput "" into bg fld "toFind"put "" into bg fld "Found Files"put "" into gCardTitlesput "" into gFindStringput "" into fld "hitz"select text of fld "toFind"set textFont of bg btn "Find" to "Chicago Disabled"unlock screenset hilite of me to falseselect before char insertionPoint of fld "toFind"end mouseUp</script>
</part>
<part>
<id>59</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>4</left>
<top>103</top>
<right>181</right>
<bottom>287</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>keyList</name>
<script>on mouseDownglobal QueryChunkput GetChunk() into QueryChunkget doubleClick()set textFont of bg btn "Add >>" to "Chicago"selectLine word 2 of the clickLine,name of meif it thensend mouseUp to bg btn "Add >>"end ifend mouseDown</script>
</part>
<part>
<id>61</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>193</left>
<top>113</top>
<right>242</right>
<bottom>134</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago Disabled</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Add >></name>
<script>on mouseUpglobal QueryChunkif the TextFont of me = "Chicago Disabled" then exit mouseUplock screenput the selectedText into theLineif theLine = "" then exit mouseUpspinCursorget replaceChunk(theLine)set textFont of bg btn "Find" to "Chicago"unlock screenend mouseUp</script>
</part>
<part>
<id>62</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>193</left>
<top>193</top>
<right>242</right>
<bottom>214</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago Disabled</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find</name>
<script>on mouseUpglobal gCdNameList6,gCardTitles,gFindString,UserNameif the TextFont of me = "Chicago Disabled" then exit mouseUpput the ticks into startput fld "toFind" into gFindStringif gFindString = "" thenanswer "Please specify a search string."select text of fld "toFind"exit mouseUpend ifset cursor to busyput "" into gCardTitlesput "" into fld "found files"put "" into fld "hitz"set scroll of fld "found files" to 0put "AND" into searchListput filterSearch((gFindString)) into theStringrepeat with i = 1 to number of words in theStringput word i of theString into thisWordif " " & thisWord & " " is in " AND NOT OR " thenif last word of searchList is not thisWord thenput thisWord after searchListend ifelseget last word of searchListif " " & it & " " is not in " AND NOT OR " then put "AND" after searchListput " " & thisWord & return after searchListend ifend repeatput hitsForTerm(searchList,theRect) into hitListif hitList = "" thenanswer "No matches were found."exit mouseUpend ifput TitleList(hitList,gCdNameList6) into gCardTitlesSort gCardTitlesrepeat until line 1 of gCardTitles is not ""delete line 1 of gCardTitlesend repeatrepeat until last char of gCardTitles is not returndelete last char of gCardTitlesend repeatput number of lines in gCardTitles into hitCountlock screenif hitCount = 1 thenput "1 item found. Click to view..." into fld "hitz"else if hitCount = 0 thenput "0 items found" into fld "Hitz"else put hitCount && "items found. Click to view..." into fld "hitz"put gCardTitles into fld "found files"if UserName is "Peter Meyer" then put (the ticks - start)/60unlock screen with wipe down fastend mouseUpfunction hitsForTerm searchList,theRectput "" into hitListput "" into booleanListrepeat with i = 1 to number of lines in searchListput "" into subHitsput word 1 of line i to i of searchList into thisBooleanput word 2 of line i to i of searchList into thisWordput char 1 to 1 of thisWord into theFldif theFld is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then put "non-alpha" into theFldput cd fld theFld of cd "Index" into findInput LookUpHits(thisWord,findIn) into subHitsput thisBoolean && number of items of subHits && thisWord into line i to i of BooleanListput subHits into line i to i of hitListend repeatput line 1 to 1 of hitList into allHitsrepeat with z = 2 to number of lines of hitListput word 1 to 1 of line z to z of booleanList into thisBooleanif thisBoolean = "AND" thenput FilterANDs(last line of allHits,line z to z of hitList) into last line of allHitselse if thisBoolean = "NOT" thenput FilterNOTs(last line of allHits,line z to z of hitList) into last line of allHitselse if thisBoolean = "OR" thenput filterORs(last line of allHits,line z to z of hitList) into last line of allHitsend ifend repeatreturn allHitsend hitsForTermfunction LookUpHits thisWord,findInset cursor to busyput "" into subHitsif last char of thisWord is not "*" thenput offset(return & thisWord & ",",return & findIn) into charOffif charOff > 0 thenput line (number of lines of char 1 to charOff of findIn) of findIn into subHitsdelete item 1 to 1 of subHitsend ifelsedelete last char of thisWordput offset(return & thisWord,return & findIn) into charOffif charOff > 0 thenput number of lines of char 1 to charOff of findIn into theLineput line theLine of findIn into subHitsdelete item 1 to 1 of subHitsdelete line 1 to theLine of findInput length of thisWord into wordLengthrepeat with i = 1 to 4000if i mod 12 = 0 then set cursor to busyif char 1 to wordLength of findIn = thisWord thenput line 1 to 1 of findIn into theseHitsdelete item 1 of theseHitsput "," & theseHits after subHitsdelete line 1 to 1 of findInelse exit repeatend repeatsort items of subHitsput RemoveDupItems(subHits) into subHitsend ifend ifreturn subHitsend LookUpHitsfunction filterSearch wrepeat with z = 1 to length of wif char z of w is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*" then put " " into char z of wend repeatreturn wend filterSearch</script>
